(load "utilities.lisp")
(load "miscfunctions.lisp")
(load "listextractfunctions.lisp")
(load "listmanipfunctions.lisp")
(load "sentenceparse.lisp")
(load "stringsimilarity.lisp")
(load "topimportance.lisp")

(defparameter *verblist* (makelist "verblist"))
(defparameter *ignorelist* (makelist "ignorelist"))

(defun topmacro (file)
(top-n-words 3 (link-words (wordinventory (skimlist (makelist file)))))
)

;;(unique (top-n-contexts (topmacro "testemail") (parse-passage (sentence-split "testemail"))))

